home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / system / skey40.zip / BUDEMO.BAT < prev    next >
DOS Batch File  |  1991-12-23  |  3KB  |  139 lines
  1. :Batutil c(o) 1990, 1991 Barry Simon and Richard Wilson
  2. : Version 4.0
  3. echo off
  4. if %ret%a==?a goto help
  5. batutil {$É=%0}{inc %0 code}
  6. goto end
  7. :help
  8. set ret=y
  9. batutil ?
  10. set b4$=
  11. goto end
  12. :echo1
  13.  
  14.  
  15. This batch file demonstrates what you can do with BATUTIL, a shareware program
  16. to enhance your batch files.  Everything that you see, hear and do until you
  17. exit is done with DOS tools and BATUTIL.
  18.  
  19. Now hit a key to continue.
  20. :echo2
  21. The menu below is made with BATUTIL.  Use arrow keys and <Enter> or Highlit
  22.   letters to choose; even use a mouse if you have one.
  23. :echo3
  24.  
  25. BATUTIL will report on the environment, allow interactive editing and has
  26.   batch commands.  We'll first show you your environment, then call you
  27.   into the environment editor and show you your environment again.
  28.  
  29. Now hit a key
  30.  
  31.  
  32. :fmain
  33. Menu demonstration
  34. Equipment determination
  35. Input from User
  36. controlling the enVironment
  37. Display tools
  38. Color demo
  39. Language demo
  40. Sounds
  41. Under the covers
  42. eXit
  43. @
  44. Explore the options available when you make menus with BATUTIL
  45. A sample of some of the hardware information you can determine with BATUTIL
  46. Input from the user includes but goes way beyond Y/N questions
  47. List, edit and otherwise manipulate the DOS environment area
  48. See what you can do to your screens with BATUTIL
  49. See all the colors in a simple panel made with BATUTIL
  50. New in Version 4.0 - string manipulation, flow control, arithmetic, more!!
  51. Hear more of BATUTIL's repitoire of sounds and tunes
  52. Call up BATUTIL's help and explore how it works
  53. Come back again soon, hear!
  54. :fmain1
  55. Menu demonstration
  56. Equipment determination
  57. Input from User
  58. controlling the enVironment
  59. Display tools
  60. Color demo
  61. Language demo
  62. Sounds
  63. eXit
  64. @
  65. Explore the options available when you make menus with BATUTIL
  66. A sample of some of the hardware information you can determine with BATUTIL
  67. Input from the user includes but goes way beyond Y/N questions
  68. List, edit and otherwise manipulate the DOS environment area
  69. See what you can do to your screens with BATUTIL
  70. See all the colors in a simple panel made with BATUTIL
  71. New in Version 4.0 - string manipulation, flow control, arithmetic, more!!
  72. Hear more of BATUTIL's repitoire of sounds and tunes
  73. Come back again soon, hear!
  74. :code
  75. {RC $} {CU -} {CL}{EX batutil.hlp}
  76. if $r > 1 then $Å=1
  77. if $x(ret)=y then go mainmenu
  78. {RO 3}{CO 5}{EC CTRLALT$S}{SO 15}{EC Associates}{GE WA1}{SO 14}
  79. {EC proudly present$_$_}{CO 12}{SO 18}{BP @1BB@1Ea@19t@1Au@1Ft@1Ci@1Dl}
  80. {SO 19}{FE %0 echo1}{AS}
  81. {AT 0F}{CL}{FE %0 echo2}{ec $_}{MH BATUTIL SAMPLER}{FM $!(%0 fmain$Å)}
  82. call menu$r
  83. la mainmenu
  84. set ret= b4$=
  85. {AT 0F}{CL}{MH BATUTIL SAMPLER}{FM $!($É fmain$Å)}
  86. call menu$r
  87. goto mainmenu
  88. la menu1
  89. AT 1E
  90. inc menudemo.bat code
  91. AT 0F
  92. ret
  93. la menu2
  94. AT 1E
  95. inc equip.bat code
  96. AT 0F
  97. ret
  98. la menu3
  99. AT 1E
  100. inc inputdem code
  101. AT 0F
  102. ret
  103. la menu4
  104. {CL}{FE %0 echo3}{AS}{AT 1E}{CL}{EN}{EC $_Hit a key for environment editor}{AS}
  105. set b4$=I$Spaid
  106. {ED}
  107. {EN}{EC $_Hit a key to return to main menu}{AS}
  108. ret
  109. la menu5
  110. AT 1E
  111. inc showdemo.bat code
  112. AT 0F
  113. ret
  114. la menu6
  115. inc colordem.bat code
  116. ret
  117. la menu7
  118. AT 1E
  119. inc langdemo.bat code
  120. AT 0F
  121. ret
  122. la menu8
  123. inc soundemo code
  124. ret
  125. la menu9
  126. if $Å=1 then goto halt
  127. set ret=?
  128. CL
  129. set b4$=I$Spaid
  130. go halt
  131. ret
  132. la menu0
  133. la menu10
  134. goto halt
  135. ret
  136. :end
  137. if not %ret%a==a budemo
  138.  
  139.